﻿'Context
Public Class CreadorDibujos
    Public x, y As Decimal
    Private _dibujo As Dibujo

    Sub New()
        _dibujo = New DibujoRectas() ' por default
    End Sub

    Public Sub EstablecerDibujo(tipo As Dibujo)
        _dibujo = tipo
    End Sub


    Public Sub Dibujar()
        _dibujo.dibujar(x, y)
    End Sub

End Class
